home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / mui / bcc_src.lha / Parser / ParseFile.s < prev    next >
Text File  |  1997-06-19  |  13KB  |  845 lines
  1.  
  2. ; Storm C Compiler
  3. ; Twardziel:My/Sources/StormC/Parser/ParseFile.cpp
  4.     mc68020
  5.  
  6.     XREF    _0dt__Prf__T
  7.     XREF    Free__InsertFile__T
  8.     XREF    _0ct__TextItem__TPcs
  9.     XREF    _0dt__Family__T
  10.     XREF    isValid__ValidFile__TPcPc
  11.     XREF    _0dt__Replace__T
  12.     XREF    _0dt__repdat__T
  13.     XREF    _memcpy
  14.     XREF    _strlen
  15.     XREF    _strcmp
  16.     XREF    _strcpy
  17.     XREF    _fwrite
  18.     XREF    _printf
  19.     XREF    _fclose
  20.     XREF    _fopen
  21.     XREF    _fgets
  22.     XREF    _std__in
  23.     XREF    _std__out
  24.     XREF    _std__err
  25.     XREF    _ClassList
  26.     XREF    _ins_every
  27.     XREF    _ins_header
  28.     XREF    _ins_code
  29.     XREF    _ins_initcl
  30.     XREF    _Prefs
  31.  
  32.     SECTION ":0",CODE
  33.  
  34.  
  35.     XDEF    _INIT_8_ParseFile_cpp
  36. _INIT_8_ParseFile_cpp
  37. L49    EQU    0
  38.     link    a5,#L49
  39. L48
  40.     move.l    a4,a0
  41. ;static const unsigned char ParseTab[ 130 ] = {
  42.     lea    _ParseTab(a4),a0
  43.     add.w    #$81,a0
  44.     unlk    a5
  45.     rts
  46.  
  47. ;short ParseFile::Open( char *name, short force, short scanonly )
  48.     XDEF    Open__ParseFile__TPcss
  49. Open__ParseFile__TPcss
  50. L80    EQU    -$20E
  51.     link    a5,#L80
  52.     movem.l    d2/d3/a2,-(a7)
  53.     move.w    $12(a5),d2
  54.     move.w    $10(a5),d3
  55. L57
  56.     move.l    a4,a0
  57. ;    created = 0;
  58.     move.l    $8(a5),a0
  59.     clr.w    $10(a0)
  60. ;    fh = fopen( name, "r" );
  61.     move.l    #L50,-(a7)
  62.     move.l    $C(a5),-(a7)
  63.     jsr    _fopen
  64.     addq.w    #$8,a7
  65.     move.l    $8(a5),a1
  66.     move.l    d0,(a1)
  67. ;    if( !fh ) 
  68.     move.l    $8(a5),a0
  69.     move.l    (a0),a0
  70.     cmp.w    #0,a0
  71.     bne.b    L59
  72. L58
  73. ;    if( !fh ) printf( "Fail to open %s\n", name );
  74.     move.l    $C(a5),-(a7)
  75.     move.l    #L51,-(a7)
  76.     jsr    _printf
  77.     addq.w    #$8,a7
  78. L59
  79. ;    if( fh ) 
  80.     move.l    $8(a5),a0
  81.     move.l    (a0),a0
  82.     cmp.w    #0,a0
  83.     beq    L79
  84. L60
  85. ;    if( fh ) 
  86. ;        strcpy( fname, name );
  87.     move.l    $C(a5),-(a7)
  88.     move.l    $8(a5),a1
  89.     lea    $16(a1),a0
  90.     move.l    a0,-(a7)
  91.     jsr    _strcpy
  92.     addq.w    #$8,a7
  93. ;        strcpy( sfname, name );
  94.     move.l    $C(a5),-(a7)
  95.     move.l    $8(a5),a1
  96.     lea    $52(a1),a0
  97.     move.l    a0,-(a7)
  98.     jsr    _strcpy
  99.     addq.w    #$8,a7
  100. ;        for( p = sfname + strlen( sfname ) -1 ;
  101.     move.l    $8(a5),a0
  102.     lea    $52(a0),a2
  103.     move.l    $8(a5),a1
  104.     lea    $52(a1),a0
  105.     move.l    a0,-(a7)
  106.     jsr    _strlen
  107.     addq.w    #4,a7
  108.     add.l    d0,a2
  109.     subq.w    #1,a2
  110.     move.l    a2,a1
  111.     bra.b    L62
  112. L61
  113.     move.l    a1,a0
  114.     subq.w    #1,a1
  115. L62
  116.     move.l    $8(a5),a2
  117.     lea    $52(a2),a0
  118.     cmp.l    a0,a1
  119.     blo.b    L64
  120. L63
  121.     move.b    (a1),d0
  122.     cmp.b    #$2E,d0
  123.     bne.b    L61
  124. L64
  125. ;        if( p != sfname ) 
  126.     move.l    $8(a5),a2
  127.     lea    $52(a2),a0
  128.     cmp.l    a0,a1
  129.     beq.b    L66
  130. L65
  131. ;        if( p != sfname ) *p = 0;
  132.     clr.b    (a1)
  133. L66
  134. ;        strcpy( ofname, sfname );
  135.     move.l    $8(a5),a1
  136.     lea    $52(a1),a0
  137.     move.l    a0,-(a7)
  138.     move.l    $8(a5),a1
  139.     lea    $34(a1),a0
  140.     move.l    a0,-(a7)
  141.     jsr    _strcpy
  142.     addq.w    #$8,a7
  143. ;        a = strlen( ofname );
  144.     move.l    $8(a5),a1
  145.     lea    $34(a1),a0
  146.     move.l    a0,-(a7)
  147.     jsr    _strlen
  148.     addq.w    #4,a7
  149. ;        ofname[ a ] = '.';
  150.     move.l    $8(a5),a1
  151.     lea    $34(a1),a0
  152.     move.w    d0,d1
  153.     ext.l    d1
  154.     add.l    d1,a0
  155.     move.b    #$2E,(a0)
  156. ;        strcpy( ofname + a + 1, sfname + a + 2 );
  157.     move.l    $8(a5),a1
  158.     lea    $52(a1),a0
  159.     move.w    d0,d1
  160.     ext.l    d1
  161.     add.l    d1,a0
  162.     addq.w    #2,a0
  163.     move.l    a0,-(a7)
  164.     move.l    $8(a5),a1
  165.     lea    $34(a1),a0
  166.     ext.l    d0
  167.     add.l    d0,a0
  168.     addq.w    #1,a0
  169.     move.l    a0,-(a7)
  170.     jsr    _strcpy
  171.     addq.w    #$8,a7
  172. ;        if( !Prefs.forcetrans && ((!force && vf.isValid( name, ofname ))
  173.     lea    _Prefs(a4),a0
  174.     move.w    $20(a0),d0
  175.     bne.b    L73
  176. L67
  177.     tst.w    d3
  178.     bne.b    L69
  179. L68
  180.     move.l    $8(a5),a1
  181.     lea    $34(a1),a0
  182.     move.l    a0,-(a7)
  183.     move.l    $C(a5),-(a7)
  184.     lea    -$20E(a5),a0
  185.     move.l    a0,-(a7)
  186.     jsr    isValid__ValidFile__TPcPc
  187.     add.w    #$C,a7
  188.     tst.w    d0
  189.     bne.b    L70
  190. L69
  191.     tst.w    d2
  192.     beq.b    L73
  193. L70
  194. ;orce && vf.isVali
  195. ;            strcpy( ofname, "NIL:" );
  196.     move.l    #L52,-(a7)
  197.     move.l    $8(a5),a1
  198.     lea    $34(a1),a0
  199.     move.l    a0,-(a7)
  200.     jsr    _strcpy
  201.     addq.w    #$8,a7
  202. ;            if( Prefs.verbose ) 
  203.     lea    _Prefs(a4),a0
  204.     move.w    $1C(a0),d0
  205.     beq.b    L76
  206. L71
  207. ;            if( Prefs.verbose ) printf( "Scanning \"%s
  208.     move.l    $C(a5),-(a7)
  209.     move.l    #L53,-(a7)
  210.     jsr    _printf
  211.     addq.w    #$8,a7
  212. L72
  213.     bra.b    L76
  214. L73
  215. ; else 
  216. ;            if( Prefs.verbose ) 
  217.     lea    _Prefs(a4),a0
  218.     move.w    $1C(a0),d0
  219.     beq.b    L75
  220. L74
  221. ;            if( Prefs.verbose ) printf( "Translating \
  222.     move.l    $8(a5),a1
  223.     lea    $34(a1),a0
  224.     move.l    a0,-(a7)
  225.     move.l    $C(a5),-(a7)
  226.     move.l    #L54,-(a7)
  227.     jsr    _printf
  228.     add.w    #$C,a7
  229. L75
  230. ;            created = 1;
  231.     move.l    $8(a5),a0
  232.     move.w    #1,$10(a0)
  233. L76
  234. ;        if( !(ofh = fopen( ofname, "w" )) ) 
  235.     move.l    #L55,-(a7)
  236.     move.l    $8(a5),a1
  237.     lea    $34(a1),a0
  238.     move.l    a0,-(a7)
  239.     jsr    _fopen
  240.     addq.w    #$8,a7
  241.     move.l    $8(a5),a1
  242.     move.l    d0,$12(a1)
  243.     bne.b    L78
  244. L77
  245. ;        if( !(ofh = fopen( ofname, "
  246. ;            printf( "Can not open output file\n" );
  247.     move.l    #L56,-(a7)
  248.     jsr    _printf
  249.     addq.w    #4,a7
  250. ;            Close();
  251.     move.l    $8(a5),-(a7)
  252.     jsr    Close__ParseFile__T
  253.     addq.w    #4,a7
  254. ;            return 0;
  255.     moveq    #0,d0
  256.     movem.l    (a7)+,d2/d3/a2
  257.     unlk    a5
  258.     rts
  259. L78
  260. ;        TokStart = TokLen = 0;
  261.     move.l    $8(a5),a0
  262.     clr.w    $D6(a0)
  263.     move.l    $8(a5),a0
  264.     clr.w    $D4(a0)
  265. ;        LineBuf[0] = 0;
  266.     move.l    $8(a5),a1
  267.     lea    $DA(a1),a0
  268.     lea    (a0),a0
  269.     clr.b    (a0)
  270. ;        LineN = 0;
  271.     move.l    $8(a5),a0
  272.     clr.l    4(a0)
  273. ;        SBracket = CBracket = MBracket = 0;
  274.     move.l    $8(a5),a0
  275.     clr.w    $4DC(a0)
  276.     move.l    $8(a5),a0
  277.     clr.w    $4DE(a0)
  278.     move.l    $8(a5),a0
  279.     clr.w    $4E0(a0)
  280. ;        comment = 0;
  281.     move.l    $8(a5),a0
  282.     clr.w    $C(a0)
  283. ;        ErrorBuf = 0;
  284.     move.l    $8(a5),a0
  285.     clr.w    $E(a0)
  286. ;        copy = 1;
  287.     move.l    $8(a5),a0
  288.     move.w    #1,$8(a0)
  289. ; startcopy = 0;
  290.     move.l    $8(a5),a0
  291.     clr.w    $A(a0)
  292. ;        return 1;
  293.     moveq    #1,d0
  294.     movem.l    (a7)+,d2/d3/a2
  295.     unlk    a5
  296.     rts
  297. L79
  298. ;    return 0;
  299.     moveq    #0,d0
  300.     movem.l    (a7)+,d2/d3/a2
  301.     unlk    a5
  302.     rts
  303.  
  304. ;void ParseFile::Close( void )
  305.     XDEF    Close__ParseFile__T
  306. Close__ParseFile__T
  307. L86    EQU    0
  308.     link    a5,#L86
  309.     movem.l    a2,-(a7)
  310.     move.l    $8(a5),a2
  311. L81
  312.     move.l    a4,a0
  313. ;    if( fh ) 
  314.     move.l    a2,a0
  315.     move.l    (a0),a0
  316.     cmp.w    #0,a0
  317.     beq.b    L83
  318. L82
  319. ;    if( fh ) 
  320. ;        fclose( fh );
  321.     move.l    a2,a0
  322.     move.l    (a0),a0
  323.     move.l    a0,-(a7)
  324.     jsr    _fclose
  325.     addq.w    #4,a7
  326. ;        fh = 0;
  327.     clr.l    (a2)
  328. L83
  329. ;    if( ofh ) 
  330.     move.l    a2,a0
  331.     move.l    $12(a0),a0
  332.     cmp.w    #0,a0
  333.     beq.b    L85
  334. L84
  335. ;    if( ofh ) 
  336. ;        fclose( ofh );
  337.     move.l    a2,a0
  338.     move.l    $12(a0),a0
  339.     move.l    a0,-(a7)
  340.     jsr    _fclose
  341.     addq.w    #4,a7
  342. ;        ofh = 0;
  343.     clr.l    $12(a2)
  344. L85
  345.     movem.l    (a7)+,a2
  346.     unlk    a5
  347.     rts
  348.  
  349. ;ParseFile::~ParseFile()
  350.     XDEF    _0dt__ParseFile__T
  351. _0dt__ParseFile__T
  352. L88    EQU    0
  353.     link    a5,#L88
  354.     move.l    $8(a5),a1
  355. L87
  356.     move.l    a4,a0
  357. ;    Close();
  358.     move.l    a1,-(a7)
  359.     jsr    Close__ParseFile__T
  360.     addq.w    #4,a7
  361.     unlk    a5
  362.     rts
  363.  
  364. ;ParseFile::ParseFile( void )
  365.     XDEF    _0ct__ParseFile__T
  366. _0ct__ParseFile__T
  367. L90    EQU    0
  368.     link    a5,#L90
  369.     move.l    $8(a5),a1
  370. L89
  371.     move.l    a4,a0
  372. ;    fh = ofh = 0;
  373.     clr.l    $12(a1)
  374.     clr.l    (a1)
  375.     unlk    a5
  376.     rts
  377.  
  378. ;void ParseFile::GetToken( void )
  379.     XDEF    GetToken__ParseFile__T
  380. GetToken__ParseFile__T
  381. L152    EQU    -$A
  382.     link    a5,#L152
  383.     movem.l    d2/a2,-(a7)
  384.     move.l    $8(a5),a2
  385. L92
  386.     move.l    a4,a0
  387. ;    if( TokLen ) 
  388.     move.l    a2,a0
  389.     move.w    $D6(a0),d0
  390.     beq.b    L94
  391. L93
  392. ;    if( TokLen ) 
  393. ;        memcpy( PrevTok, Tok, TokLen );
  394.     move.l    a2,a0
  395.     move.w    $D6(a0),d0
  396.     ext.l    d0
  397.     move.l    d0,-(a7)
  398.     lea    $DA(a2),a0
  399.     move.l    a2,a1
  400.     move.w    $D4(a1),d0
  401.     ext.l    d0
  402.     add.l    d0,a0
  403.     move.l    a0,-(a7)
  404.     lea    $70(a2),a0
  405.     move.l    a0,-(a7)
  406.     jsr    _memcpy
  407.     add.w    #$C,a7
  408. ;        PrevTok[TokLen] = 0;
  409.     lea    $70(a2),a0
  410.     move.l    a2,a1
  411.     move.w    $D6(a1),d0
  412.     ext.l    d0
  413.     add.l    d0,a0
  414.     clr.b    (a0)
  415. ;        PrevType = TokType;
  416.     move.l    a2,a0
  417.     move.b    $D8(a0),d0
  418.     move.b    d0,$D9(a2)
  419.     bra.b    L96
  420. L94
  421. ; else PrevTok[0] = 0;
  422.     lea    $70(a2),a0
  423.     lea    (a0),a0
  424.     clr.b    (a0)
  425. L95
  426. L96
  427. ;    if( copy ) 
  428.     move.l    a2,a0
  429.     move.w    $8(a0),d0
  430.     beq.b    L102
  431. L97
  432. ;    if( copy ) 
  433. ;        if( TokLen ) 
  434.     move.l    a2,a0
  435.     move.w    $D6(a0),d0
  436.     beq.b    L102
  437. L98
  438. ;        if( TokLen ) 
  439. ;            if( fwrite( Tok, 1, TokLen, ofh ) != TokLen ) 
  440.     move.l    a2,a0
  441.     move.l    $12(a0),a0
  442.     move.l    a0,-(a7)
  443.     move.l    a2,a0
  444.     move.w    $D6(a0),d0
  445.     ext.l    d0
  446.     move.l    d0,-(a7)
  447.     pea    1.w
  448.     lea    $DA(a2),a0
  449.     move.l    a2,a1
  450.     move.w    $D4(a1),d0
  451.     ext.l    d0
  452.     add.l    d0,a0
  453.     move.l    a0,-(a7)
  454.     jsr    _fwrite
  455.     add.w    #$10,a7
  456.     move.l    a2,a0
  457.     move.w    $D6(a0),d1
  458.     ext.l    d1
  459.     cmp.l    d1,d0
  460.     beq.b    L102
  461. L99
  462. ;            if( fwrite( Tok,
  463. ;                printf( "IO Error\n" );
  464.     move.l    #L91,-(a7)
  465.     jsr    _printf
  466.     addq.w    #4,a7
  467. L100
  468. L101
  469. L102
  470. ;    if( startcopy ) 
  471.     move.l    a2,a0
  472.     move.w    $A(a0),d0
  473.     beq.b    L104
  474. L103
  475. ;    if( startcopy ) 
  476. ; copy = 1;
  477.     move.w    #1,$8(a2)
  478. ; startcopy = 0;
  479.     clr.w    $A(a2)
  480. L104
  481. ;    TokStart += TokLen;
  482.     move.l    a2,a0
  483.     move.w    $D6(a0),d0
  484.     move.w    $D4(a2),d1
  485.     add.w    d0,d1
  486.     move.w    d1,$D4(a2)
  487. ;    TokLen = 0;
  488.     clr.w    $D6(a2)
  489. ;    if( !LineBuf[ TokStart ] ) 
  490.     lea    $DA(a2),a0
  491.     move.l    a2,a1
  492.     move.w    $D4(a1),d0
  493.     ext.l    d0
  494.     add.l    d0,a0
  495.     move.b    (a0),d0
  496.     bne.b    L108
  497. L105
  498. ;    if( !LineBuf[ TokStart ] ) 
  499. ;        if( !fgets( LineBuf, MAXLINE, fh ) ) 
  500.     move.l    a2,a0
  501.     move.l    (a0),a0
  502.     move.l    a0,-(a7)
  503.     pea    $400.w
  504.     lea    $DA(a2),a0
  505.     move.l    a0,-(a7)
  506.     jsr    _fgets
  507.     add.w    #$C,a7
  508.     tst.l    d0
  509.     bne.b    L107
  510. L106
  511. ;        if( !fgets( LineBuf, MAXLIN
  512.     movem.l    (a7)+,d2/a2
  513.     unlk    a5
  514.     rts
  515. L107
  516. ;        LineN++;
  517.     move.l    4(a2),d0
  518.     addq.l    #1,d0
  519.     move.l    d0,4(a2)
  520. ;        TokStart = 0;
  521.     clr.w    $D4(a2)
  522. L108
  523. ;    p = ps = LineBuf + TokStart;
  524.     lea    $DA(a2),a0
  525.     move.l    a2,a1
  526.     move.w    $D4(a1),d0
  527.     ext.l    d0
  528.     add.l    d0,a0
  529.     move.l    a0,-$8(a5)
  530.     move.l    -$8(a5),a1
  531. ;    TokType = ParseTab[ *p ];
  532.     lea    _ParseTab(a4),a0
  533.     move.b    (a1),d0
  534.     extb.l    d0
  535.     add.l    d0,a0
  536.     move.b    (a0),d0
  537.     move.b    d0,$D8(a2)
  538. ;    char prevch = 0;
  539.     moveq    #0,d2
  540. ;    if( *p == '"' && !comment ) 
  541.     move.b    (a1),d0
  542.     cmp.b    #$22,d0
  543.     bne    L134
  544. L109
  545.     move.l    a2,a0
  546.     move.w    $C(a0),d0
  547.     bne    L134
  548. L110
  549. ;    if( *p == '"' && !comment ) 
  550. ;        while( 1 ) 
  551. L111
  552. ;        while( 1 ) 
  553. ;            p++;
  554.     move.l    a1,a0
  555.     addq.w    #1,a1
  556. ;            if( *p == '"' && *(p-1) != '\\' ) 
  557.     move.b    (a1),d0
  558.     cmp.b    #$22,d0
  559.     bne.b    L114
  560. L112
  561.     lea    -1(a1),a0
  562.     move.b    (a0),d0
  563.     cmp.b    #$5C,d0
  564.     beq.b    L114
  565. L113
  566. ;            if( *p == '"' && *(p-1) != '
  567. ; p++;
  568.     move.l    a1,a0
  569.     addq.w    #1,a1
  570. ; 
  571.     bra    L138
  572. L114
  573. ;            if( !*p ) 
  574.     move.b    (a1),d0
  575.     bne.b    L111
  576. L115
  577. ;            if( !*p ) 
  578.     bra    L138
  579. L116
  580. L117
  581.     bra.b    L111
  582. L118
  583.     bra    L138
  584. L119
  585. ;    while( ParseTab[ *p ] == TokType && *p ) 
  586.     bra    L134
  587. L120
  588. ;    while( ParseTab[ *p ] == 
  589. ;        if( TokType == CNT ) 
  590.     move.l    a2,a0
  591.     move.b    $D8(a0),d0
  592.     cmp.b    #$20,d0
  593.     bne.b    L131
  594. L121
  595. ;        if( TokType == CNT ) 
  596. ;            if( prevch == '/' ) 
  597.     cmp.b    #$2F,d2
  598.     bne.b    L127
  599. L122
  600. ;            if( prevch == '/' ) 
  601. ;                if( *p == '*' ) 
  602.     move.b    (a1),d0
  603.     cmp.b    #$2A,d0
  604.     bne.b    L124
  605. L123
  606. ;                if( *p == '*' ) comment++;
  607.     move.w    $C(a2),d0
  608.     addq.w    #1,d0
  609.     move.w    d0,$C(a2)
  610. L124
  611. ;                if( *p == '/' ) 
  612.     move.b    (a1),d0
  613.     cmp.b    #$2F,d0
  614.     bne.b    L127
  615. L125
  616. ;                if( *p == '/' ) 
  617. ;                    TokLen = 0;
  618.     clr.w    $D6(a2)
  619. ;                    TokStart = strlen( LineBuf );
  620.     lea    $DA(a2),a0
  621.     move.l    a0,-(a7)
  622.     jsr    _strlen
  623.     addq.w    #4,a7
  624.     move.w    d0,$D4(a2)
  625. ;                    goto 
  626.     bra    L96
  627. L126
  628. L127
  629. ;            if( prevch == '*' && *p == '/' ) 
  630.     cmp.b    #$2A,d2
  631.     bne.b    L130
  632. L128
  633.     move.b    (a1),d0
  634.     cmp.b    #$2F,d0
  635.     bne.b    L130
  636. L129
  637. ;            if( prevch == '*' && *p == '/
  638.     move.w    $C(a2),d0
  639.     subq.w    #1,d0
  640.     move.w    d0,$C(a2)
  641. L130
  642. ;            prevch = *p;
  643.     move.b    (a1),d0
  644.     move.b    d0,d2
  645. L131
  646. ;        p++;
  647.     move.l    a1,a0
  648.     addq.w    #1,a1
  649. ;        if( ParseTab[ *p ] == BRC ) 
  650.     lea    _ParseTab(a4),a0
  651.     move.b    (a1),d0
  652.     extb.l    d0
  653.     add.l    d0,a0
  654.     move.b    (a0),d0
  655.     cmp.b    #4,d0
  656.     bne.b    L134
  657. L132
  658. ;        if( ParseTab[ *p ] == BRC ) 
  659.     bra.b    L138
  660. L133
  661. L134
  662.     lea    _ParseTab(a4),a0
  663.     move.b    (a1),d0
  664.     extb.l    d0
  665.     add.l    d0,a0
  666.     move.b    (a0),d0
  667.     move.l    a2,a0
  668.     move.b    $D8(a0),d1
  669.     cmp.b    d1,d0
  670.     bne.b    L138
  671. L135
  672.     move.b    (a1),d0
  673.     bne    L120
  674. L136
  675. L137
  676. L138
  677. ;    TokLen = (short)(p - ps);
  678.     move.l    a1,d0
  679.     sub.l    -$8(a5),d0
  680.     move.w    d0,$D6(a2)
  681. ;    if( TokType == BRC && !comment) 
  682.     move.l    a2,a0
  683.     move.b    $D8(a0),d0
  684.     cmp.b    #4,d0
  685.     bne    L148
  686. L139
  687.     move.l    a2,a0
  688.     move.w    $C(a0),d0
  689.     bne    L148
  690. L140
  691. ;    if( TokType == BRC && !comment) 
  692. ;        switch( *Tok )
  693.     lea    $DA(a2),a0
  694.     move.l    a2,a1
  695.     move.w    $D4(a1),d0
  696.     ext.l    d0
  697.     add.l    d0,a0
  698.     move.b    (a0),d0
  699.     cmp.b    #$5D,d0
  700.     beq    L146
  701.     bgt.b    L153
  702.     cmp.b    #$29,d0
  703.     beq.b    L144
  704.     bgt.b    L154
  705.     cmp.b    #$28,d0
  706.     beq.b    L143
  707.     bra    L148
  708. L154
  709.     cmp.b    #$5B,d0
  710.     beq    L145
  711.     bra    L148
  712. L153
  713.     cmp.b    #$7B,d0
  714.     beq.b    L141
  715.     cmp.b    #$7D,d0
  716.     beq.b    L142
  717.     bra    L148
  718. ;        switch( *Tok ) 
  719. ;            
  720. L141
  721. ;': MBracket++;
  722.     move.w    $4DC(a2),d0
  723.     addq.w    #1,d0
  724.     move.w    d0,$4DC(a2)
  725. ; 
  726.     bra.b    L148
  727. L142
  728. ;': MBracket--;
  729.     move.w    $4DC(a2),d0
  730.     subq.w    #1,d0
  731.     move.w    d0,$4DC(a2)
  732. ; 
  733.     bra.b    L148
  734. L143
  735. ;            case '(': CBracket++;
  736.     move.w    $4DE(a2),d0
  737.     addq.w    #1,d0
  738.     move.w    d0,$4DE(a2)
  739. ; 
  740.     bra.b    L148
  741. L144
  742. ;            case ')': CBracket--;
  743.     move.w    $4DE(a2),d0
  744.     subq.w    #1,d0
  745.     move.w    d0,$4DE(a2)
  746. ; 
  747.     bra.b    L148
  748. L145
  749. ;            case '[': SBracket++;
  750.     move.w    $4E0(a2),d0
  751.     addq.w    #1,d0
  752.     move.w    d0,$4E0(a2)
  753. ; 
  754.     bra.b    L148
  755. L146
  756. ;            case ']': SBracket--;
  757.     move.w    $4E0(a2),d0
  758.     subq.w    #1,d0
  759.     move.w    d0,$4E0(a2)
  760. ; 
  761. L147
  762. L148
  763. ;    if( TokType == SEP || comment ) 
  764.     move.l    a2,a0
  765.     move.b    $D8(a0),d0
  766.     cmp.b    #1,d0
  767.     beq    L96
  768. L149
  769.     move.l    a2,a0
  770.     move.w    $C(a0),d0
  771.     beq.b    L151
  772. L150
  773. ;    if( TokType == SEP || comment ) go
  774.     bra    L96
  775. L151
  776.     movem.l    (a7)+,d2/a2
  777.     unlk    a5
  778.     rts
  779.  
  780. ;void ParseFile::StartCopy( void )
  781.     XDEF    StartCopy__ParseFile__T
  782. StartCopy__ParseFile__T
  783. L156    EQU    0
  784.     link    a5,#L156
  785.     move.l    $8(a5),a1
  786. L155
  787.     move.l    a4,a0
  788. ;    startcopy = 1;
  789.     move.w    #1,$A(a1)
  790.     unlk    a5
  791.     rts
  792.  
  793. ;void ParseFile::StopCopy( void )
  794.     XDEF    StopCopy__ParseFile__T
  795. StopCopy__ParseFile__T
  796. L158    EQU    0
  797.     link    a5,#L158
  798.     move.l    $8(a5),a1
  799. L157
  800.     move.l    a4,a0
  801. ;    copy = 0;
  802.     clr.w    $8(a1)
  803.     unlk    a5
  804.     rts
  805.  
  806. L56
  807.     dc.b    'Can not open output file',$A,0
  808. L51
  809.     dc.b    'Fail to open %s',$A,0
  810. L91
  811.     dc.b    'IO Error',$A,0
  812. L52
  813.     dc.b    'NIL:',0
  814. L53
  815.     dc.b    'Scanning "%s"',$A,0
  816. L54
  817.     dc.b    'Translating "%s" into "%s"',$A,0
  818. L50
  819.     dc.b    'r',0
  820. L55
  821.     dc.b    'w',0
  822.  
  823.     SECTION ":1",DATA
  824.  
  825. _ParseTab
  826.     dc.b    0,0,0,0,0,0,0,0
  827.     dc.b    0,1,1,0,0,0,0,0
  828.     dc.b    0,0,0,0,0,0,0,0
  829.     dc.b    0,0,0,0,0,0,0,0
  830.     dc.b    1,0,2,0,0,0,0,0
  831.     dc.b    4,4,$20,$10,$10,$10,$10,$20
  832.     dc.b    2,2,2,2,2,2,2,2
  833.     dc.b    2,2,$10,$10,$10,$10,$10,0
  834.     dc.b    0,2,2,2,2,2,2,2
  835.     dc.b    2,2,2,2,2,2,2,2
  836.     dc.b    2,2,2,2,2,2,2,2
  837.     dc.b    2,2,2,4,0,4,0,2
  838.     dc.b    0,2,2,2,2,2,2,2
  839.     dc.b    2,2,2,2,2,2,2,2
  840.     dc.b    2,2,2,2,2,2,2,2
  841.     dc.b    2,2,2,4,0,4,2,0
  842.     dc.b    0,0
  843.  
  844.     END
  845.